home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / SBASIC SAMPLE.TEXT.txt < prev    next >
Text File  |  2023-02-26  |  2KB  |  65 lines
  1.  HOME
  2. *************************************************************
  3. *                                                           *
  4. *      S-BASIC TEST PROGRAM THE NIBBLE PROGRAMMER           *
  5. *                                                           *
  6. *   THIS PROGRAM GENERATES RANDOM LENGTH LINES IN LO-RES    *
  7. *        GRAPHICS, WHOSE COLORS CHANGE DEPENDING ON         *
  8. *               THE SETTING OF PADDLE 0                     *
  9. *                                                           *
  10. *************************************************************
  11. *
  12.  PRINT "TURN PADDLE 0 TO GET DIFFERENT COLORS"
  13.  PRINT
  14. #STARTOVER
  15.  LOOP
  16.     PRINT "TYPE V FOR VERTICAL LINES ONLY"
  17.     PRINT "TYPE H FOR HORIZONTAL LINES ONLY"
  18.     PRINT "TYPE B FOR BOTH"
  19.     INPUT C$
  20.     EXIT LOOP IF C$="V" OR C$="H" OR C$="B"
  21.  ENDLOOP
  22.  IF C$="V"
  23.    PRINT "GENERATING VERTICAL LINES ONLY"
  24.  ELSE IF C$="H"
  25.    PRINT "GENERATING HORIZONTAL LINES ONLY"
  26.  ELSE
  27.    PRINT "GENERATING BOTH VERTICAL AND HORIZONTAL LINES"
  28.  ENDIF
  29.  PRINT "PRESS ANY KEY TO QUIT"
  30.  FOR I=0 TO 3000
  31.  NEXT
  32.  GR
  33.  POKE 49234,0
  34.  *CLEAR THE ENTIRE LO-RES SCREEN
  35.  FOR I=1024 TO 2047
  36.    POKE I,0
  37.  NEXT
  38.  WHILE PEEK ( - 16384) < 127
  39.     I = RND (1) * 39
  40.     J = RND (1) * 47
  41.     P = INT ( PDL (0) / 19)
  42.     COLOR=  RND (1) * 3 + P
  43.     IF C$="H" OR C$="B"
  44.       MH=RND(1)*39+1
  45.       LH=RND(1)*39
  46.       HLIN LH,MH AT J
  47.     ENDIF
  48.     IF C$="V" OR C$="B"
  49.       LV=RND(1)*47
  50.       MV=RND(1)*47+1
  51.       VLIN LV,MV AT I
  52.     ENDIF
  53.  ENDWHILE
  54.  TEXT
  55.  HOME
  56.  *CLEAR KEYBOARD STROBE
  57.  POKE 49168,0
  58.  INPUT "RUN AGAIN? ";C$
  59.  IF C$="Y" OR C$="YES"
  60.    GOTO STARTOVER
  61.  ENDIF
  62.  END
  63.  QUIT
  64.  
  65.